home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: Alpha / Whiteline Alpha.iso / tools / prtfolio / areacd.bas < prev    next >
Encoding:
BASIC Source File  |  1994-09-22  |  2.7 KB  |  31 lines

  1. 0 GOSUB 100 : GOTO 3
  2. 1  IF ASC(A$)>96 THEN A$=CHR$(ASC(A$)-32):RETURN ELSE RETURN
  3. 2 A$=INKEY$: IF A$="" THEN 2 ELSE RETURN
  4. 3 PRINT STRING$(7,32);"Enter Area Code (3 digit),":PRINT STRING$(12,32)"State (2 letter)":PRINT STRING$(2,32);"or [ESC] to end.  DO NOT HIT [ENTER].": GOSUB 2: IF ASC(A$)=27 THEN if isrun then run "menu" else end
  5. 4  IF ASC(A$)<58 THEN 6
  6. 5  GOSUB 1:PRINT A$;: LT$=A$ : GOSUB 2: GOSUB 1:PRINT A$:LT$=LT$+A$ : GOTO 10
  7. 6 B$=A$:PRINT A$;: GOSUB 2:B$=B$+A$:PRINT A$;: GOSUB 2:B$=B$+A$:PRINT A$:RESTORE 13:READ Y$
  8. 7 READ X$: IF X$=B$ THEN PRINT Y$:GOTO 3
  9. 8 READ X$: IF ASC(LEFT$(X$,1))<58 THEN 9 ELSE Y$=X$:GOTO 7
  10. 9  IF X$=B$ THEN PRINT Y$:GOTO 3 ELSE 8
  11. 10 RESTORE 13
  12. 11 READ X$: IF X$=LT$ THEN READ X$:PRINT X$" "; ELSE 11
  13. 12 READ X$: IF ASC(LEFT$(X$,1))>64 THEN PRINT :GOTO 3 ELSE PRINT X$" ";:GOTO 12
  14. 13 DATA "AL","205","AK","907","AZ","602","AR","501","CA","209","213","310","408","415","510","619","707","714","805","818","916","CO","303","719","CT","203","DE","302","DC","202","FL","305","407","813","904","GA","404","912","HI","808","ID","208","IL","217","309","312","618","708","815","IN","219","317","812","IA","319","515","712"
  15. 14 DATA "KS","316","913","KY","502","606","LA","318","504","ME","207","MD","301","MA","413","508","617","MI","313","517","616","906","MN","218","507","612","MS","601","MO","314","417","816","MT","406","NE","308","402","NV","702","NH","603","NJ","201","609","908","NM","505"
  16. 15 DATA "NY","212","315","516","518","607","716","718","914","NC","704","919","ND","701","OH","216","419","513","614","OK","405","918","OR","503","PA","215","412","717","814","RI","401","SC","803","SD","605","TN","615","901","TX","214","409","512","713","806","817","903","915","UT","801","VT","802"
  17. 16 DATA "VA","703","804","WA","206","509","WV","304","WI","414","608","715","WY","307","BRITISH COLUMBIA","604","ALBERTA","403","SASKATCHEWAN","306","MANITOBA","204","ONTARIO","416","519","613","705","807","QUEBEC","418","514","819","NEWFOUNDLAND","709","NEW BRUNSWICK","506"
  18. 17 DATA "NOVIA SCOTIA & PRINCE EDWARD ISLAND","902","CARRIBEAN ISLANDS","809"
  19. 18  BEEP: IF ERR=4 THEN PRINT "INVALID INPUT":PRINT "OR NONEXISTANT AREA CODE.":PRINT "IF ENTERING STATE"," USE 2 LETTER":PRINT "POSTAL ABBREVIATION.":PRINT "IF ENTERING AREA CODE"," ENTER 3 DIGITS.":RESUME 3
  20. 19 BEEP:PRINT "ERROR"ERR"IN LINE"ERL".":PRINT "PLEASE TRY AGAIN":RESUME 3
  21. 100 CLS: ON ERROR GOTO 18
  22. 110 PRINT "AREACD.100"
  23. 120 PRINT "by Don Zeikel [CIS 75775","1430]"
  24. 130 PRINT "Copyright 1988, all rights reserved."
  25. 140 PRINT "ported to the Portfolio"
  26. 150 PRINT "by John Feagans"
  27. 160 PRINT "in the public domain.  Not for sale"
  28. 170 A$=INKEY$ : IF A$="" THEN 170
  29. 180 CLS : IF ASC(A$)<>27 THEN return
  30. if isrun then run "menu" else end
  31. ə